www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminKernel\D_asp_code_str_for_complie_c_have_select.asp

    <%
'**************************************************************
' 新 动 软 网 站 管 理系统
' 系统作者: 阮 丁 远(网名：天  下 程 序)
' Copyright (C)  新 动 软 网站 管 理 系 统 版 权 所有
'**************************************************************
%>
<%
if havexpage$$xxxx_d_soft_complie$$rnd$="" then
havexpage$$xxxx_d_soft_complie$$rnd$=1
sub showpage$$xxxx_d_soft_complie$$rnd$(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit,CurrentPage)
'dim n, i,strTemp,strUrl
if instr(1,sfilename,"?",1)<>0 then
sfilename=left(sfilename,instr(1,sfilename,"?",1)-1)
else
sfilename=sfilename
end if
strUrl=JoinChar(sfilename)
Fy_Url1=Request.ServerVariables("QUERY_STRING")
Fy_a1=split(Fy_Url1,"&")
for Fy_x1=0 to ubound(Fy_a1)
if instr(Fy_a1(Fy_x1),"=")=len(Fy_a1(Fy_x1)) then
Fy_v =""
else
Fy_v = mid(Fy_a1(Fy_x1),instr(Fy_a1(Fy_x1),"=")+1,len(Fy_a1(Fy_x1)))
end if
Fy_Cs_name= left(Fy_a1(Fy_x1),instr(Fy_a1(Fy_x1),"=")-1)
if trim(Fy_Cs_name)<>"page$$xxxx_d_soft_complie$$rnd$" then
strUrl=JoinChar(strUrl)
strUrl=strUrl&Fy_Cs_name&"="&Fy_v
end if
Next
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center' class=maintext><form name='showpages' method='post' action='" & sfilename & "'><tr><td>"
if ShowTotal=true then 
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
end if
strUrl=JoinChar(strUrl)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页&nbsp;"
else
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page$$xxxx_d_soft_complie$$rnd$=1'>首页</a>&nbsp;"
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page$$xxxx_d_soft_complie$$rnd$=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
end if
if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page$$xxxx_d_soft_complie$$rnd$=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page$$xxxx_d_soft_complie$$rnd$=" & n & "'>尾页</a>"
end if
strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页"


if ShowAllPages=True then
strTemp=strTemp & "&nbsp;<select name='page$$xxxx_d_soft_complie$$rnd$' id='page' size='1' onchange='javascript:submit()'>"   
for i = 1 to n   
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"   
 next
strTemp=strTemp & "</select>"
end if



strTemp=strTemp & "</td></tr></form></table>"
response.write strTemp
end sub
end if
%>